100 * = $1000 110 SEI 120 LDA #$7F 130 STA $DC0D 140 LDA #$01 150 STA $D01A 160 LDA #$1B 170 STA $D011 180 LDA #$00 190 STA INDEX 200 LDA IRQ 230 STA $0315 240 CLI 250 RTS 260 INDEX :B 00 270 SCREEN :B C7 280 IRQ INC $D019 290 LDA SCREEN 300 STA $D016 310 LDY #$78 320 LOOP DEY 330 CPY #$00 340 BNE LOOP 350 LDA #$C8 360 STA $D016 370 LDA #$F0 380 STA $D012 390 JSR SCROLL 400 JMP $EA31 410 SCROLL LDX #$02 420 LOOP2 DEC SCREEN 430 DEX 440 CPX #$00 450 BNE LOOP2 460 LDA SCREEN 470 CMP #$C0 480 BPL RETURN 490 LDA #$C7 500 STA SCREEN 510 INC INDEX 520 LDY INDEX 530 LDA TEXT,Y 540 STA $07E7 550 LDX #$00 560 LOOP3 LDA $07C1,X 570 STA $07C0,X 580 INX 590 CPX #$28 600 BNE LOOP3 610 RETURN RTS 620 TEXT :B " [201][212][160][215][207][210][203][211]" 630 :B "[160][194][213][212][160][217][207][213][160][205][213][211][212][160][213][211][197][160][211][195][210][197][197][206][160][195][207][196][197][211]" 640 :B "[160][215][197][210][197][160][193][160]= 1[160]" 650 :B ".............................." 660 :B ".............................." 670 :B ".............................."